home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
EDOOR.ZIP
/
SAMPLE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1996-02-11
|
496b
|
13 lines
uses door;
var
blah: string;
x: boolean;
begin
doorname:='Sample Door'; {Set the door name }
cfgfn:='Sample.cfg'; {Config File name = sample.cfg }
loadcfg; {Load/Parse the config file/drop file}
dclrscr; {Clear screen }
TypeFile('blah.ans', false); {display ansi }
end. {end! }